home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / THINKC / 4_0 / USEFUL_C / PASSTR__ / PSTRNCPY.C < prev    next >
Text File  |  1990-04-13  |  567b  |  29 lines
  1. /****************************************************************************
  2.  *
  3.  * FILE:    Pstrncpy.c
  4.  * CREA:    Sven Axelsson, GU
  5.  * MODF:    fredag 13 april 1990 @ 10.23.32
  6.  * HIST:    90-04-13 (1.0)    First version.
  7.  *
  8.  ****************************************************************************/
  9.  
  10. # include    "PasStrs.h"
  11.  
  12.  
  13. char *
  14. Pstrncpy(
  15.     register Str255            s1,
  16.     register Str255            s2,
  17.     short                    n )
  18. {
  19.     register unsigned int    i;
  20.     unsigned int            l = s2[0];
  21.     char                    *s = (char *) s1;
  22.     
  23.     for( i = 0; i <= l && i <= n; i++ ) {
  24.         *s1++ = *s2++;
  25.     }
  26.     s[0] = --i;
  27.     
  28.     return( s );
  29. }